home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / A-COMAL Series / (k)aam.d64 / slowboot (.txt) < prev    next >
Commodore BASIC  |  2007-02-28  |  1KB  |  43 lines
  1. 1 REM OPEN15,8,15,"S0:BOOTSLOW":CLOSE15:SAVE "0:BOOTSLOW",8
  2. 10 PRINT "[147]"; : REM CLEAR SCREEN
  3. 20 POKE 53281,0: REM BACKGROUND BLACK
  4. 25 POKE 53280,0: REM BORDER     BLACK
  5. 27 PRINT "";   : REM PENCOLOR GREEN
  6. 100 PRINT "[147][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]";
  7. 110 PRINT " PLEASE WAIT WHILE COMAL 0.14 IS LOADED ";
  8. 120 PRINT
  9. 130 PRINT "[153]TUTORIAL: FOUNDATIONS ... WITH COMAL"
  10. 145 PRINT "DOCUMENTATION: COMAL HANDBOOK
  11. 150 [153] "NEWSLETTER: COMAL TODAY
  12. 155 PRINT
  13. 160 PRINT "           [150]AVAILABLE FROM:           "
  14. 165 PRINT "[158]"; : REM PENCOLOR YELLOW
  15. 170 PRINT "  COMAL USERS GROUP, U.S.A., LIMITED   "
  16. 180 PRINT "          6041 MONONA DRIVE            "
  17. 185 PRINT "          MADISON, WI 53716
  18. 190 [153] "PRINTSEND SELF ADDRESSED STAMPED ENVELOPE"
  19. 200 [153] "OR CALL SYS608-222-4432PRINT FOR MORE INFO."
  20. 210 [153] "" : [143] PENCOLOR WHITE
  21. 230 [153] "  COMAL PROGRAMS CAN ONLY BE EXECUTED"
  22. 240 [153] "  AFTER THE LANGUAGE HAS BEEN LOADED."
  23. 245 [153] "OPEN"; : [143] PENCOLOR CYAN
  24. 250 [153] "COMAL PROGRAMS ON THIS DISK ARE LOADED:"
  25. 270 [153] "   LOAD "[199](34)"NAME"[199](34)
  26. 272 [153] "   RUN"
  27. 275 [153] "POSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOS";
  28. 280 [153] "   BACKUP THIS DISK BEFORE YOU USE IT   WAIT";
  29. 899 [143]
  30. 900 [143]
  31. 910 [143] CHAIN"HI + <RETURN KEY>
  32. 920 POKE 198,9
  33. 930 POKE 631,ASC("C")
  34. 940 POKE 632,ASC("H")
  35. 950 POKE 633,ASC("A")
  36. 960 POKE 634,ASC("I")
  37. 970 POKE 635,ASC("N")
  38. 980 POKE 636,34
  39. 990 POKE 637,ASC("H")
  40. 1000 POKE 638,ASC("I")
  41. 1010 POKE 639,13
  42. 1020 LOAD "C64 COMAL 0.14",8
  43.